object MainForm: TMainForm Left = 252 Top = 190 AutoScroll = False Caption = 'Zilch' ClientHeight = 434 ClientWidth = 632 Ctl3D = False Color = clBtnText Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu Position = poScreenCenter ShowHint = True OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object TopPanel1: TPanel Left = 0 Top = 0 Width = 632 Height = 55 Align = alTop BevelInner = bvLowered Ctl3D = False ParentCtl3D = False TabOrder = 0 object cboxStartMonth: TComboBox Left = 16 Top = 22 Width = 49 Height = 21 Hint = 'Month you start your repayment plan' TabStop = False Style = csDropDownList Ctl3D = False DropDownCount = 12 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( 'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec') ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = cboxStartMonthChange end object cboxStrategy: TComboBox Left = 158 Top = 22 Width = 183 Height = 21 Hint = 'Entries sorted by annual percentage rate' TabStop = False Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( 'Annual Percentage Rate' 'Quick Elimination' 'Custom Arrangement' 'Lowest Balance First' 'Highest Balance First' 'Lowest Payment First' 'Highest Payment First') ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnChange = cboxStrategyChange end object cboxPlan: TComboBox Left = 513 Top = 22 Width = 97 Height = 21 Hint = 'Pledge Money used immediately' TabStop = False Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( 'Immediate' 'Deferred') ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnChange = cboxPlanChange end object btnPledgeMoney: TButton Left = 384 Top = 21 Width = 89 Height = 22 Hint = 'Click to change Pledge Money amount' Caption = '$1000' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 TabStop = False OnClick = btnPledgeMoneyClick end object TopPanelLabels: TPanel Left = 2 Top = 2 Width = 628 Height = 18 Align = alTop BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 5 object TopPanelLabelMonth: TPanel Left = 0 Top = 0 Width = 99 Height = 18 Align = alLeft Alignment = taRightJustify BevelOuter = bvNone Caption = 'Start Month ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 0 end object TopPanelLabelStrategy: TPanel Left = 99 Top = 0 Width = 194 Height = 18 Align = alLeft Alignment = taRightJustify BevelOuter = bvNone Caption = 'Payoff Strategy ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 1 end object TopPanelLabelPledge: TPanel Left = 293 Top = 0 Width = 176 Height = 18 Align = alLeft Alignment = taRightJustify BevelOuter = bvNone Caption = 'Pledge Money ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 2 end object TopPanelLabelPlan: TPanel Left = 469 Top = 0 Width = 140 Height = 18 Align = alLeft Alignment = taRightJustify BevelOuter = bvNone Caption = 'Repayment Plan ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 3 end end object cboxStartYear: TComboBox Left = 72 Top = 22 Width = 54 Height = 21 Hint = 'Year you start your repayment plan' TabStop = False Style = csDropDownList Ctl3D = False DropDownCount = 7 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( '1990' '1991' '1992' '1993' '1994' '1995' '1996' '1997' '1998' '1999' '2000' '2001' '2002' '2003' '2004' '2005' '2006' '2007' '2008' '2009' '2010' '2011' '2012' '2013' '2014' '2015' '2016' '2017' '2018' '2019' '2020' '2021' '2022' '2023' '2024' '2025') ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnChange = cboxStartYearChange end end object MiddlePanel: TPanel Left = 0 Top = 55 Width = 632 Height = 360 Align = alClient BevelInner = bvLowered Color = clBackground Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'System' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 1 object Image1: TImage Left = 2 Top = 2 Width = 628 Height = 356 Align = alClient Stretch = True end object Panel7: TPanel Left = 41 Top = 15 Width = 493 Height = 22 BevelOuter = bvNone Color = clBlack TabOrder = 15 end object Panel6: TPanel Left = 15 Top = 213 Width = 519 Height = 17 BevelOuter = bvNone Color = clBlack TabOrder = 14 end object Panel5: TPanel Left = 15 Top = 44 Width = 535 Height = 162 BevelOuter = bvNone Color = clBlack TabOrder = 13 end object sgridCreditorInfo: TStringGrid Left = 10 Top = 40 Width = 536 Height = 162 ColCount = 6 DefaultColWidth = 24 DefaultRowHeight = 22 RowCount = 30 FixedRows = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnClick = sgridCreditorInfoClick ColWidths = ( 24 141 41 102 102 103) end object StringGridLabels: TPanel Left = 38 Top = 10 Width = 493 Height = 24 Alignment = taRightJustify BevelInner = bvLowered Caption = 'StringGridLabels' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object StringGridLabelCreditorName: TPanel Left = 2 Top = 2 Width = 138 Height = 20 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Creditor Name' TabOrder = 0 end object StringGridLabelAPR: TPanel Left = 140 Top = 2 Width = 42 Height = 20 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Caption = 'APR' TabOrder = 1 end object StringGridLabelCurrentBalance: TPanel Left = 182 Top = 2 Width = 103 Height = 20 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Current Balance' TabOrder = 2 end object StringGridLabelMonthlyPmt: TPanel Left = 285 Top = 2 Width = 103 Height = 20 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Monthly Pmt' TabOrder = 3 end object StringGridLabelPaymentCap: TPanel Left = 388 Top = 2 Width = 103 Height = 20 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Minimum Pmt' TabOrder = 4 end end object btnAdd: TButton Left = 557 Top = 44 Width = 66 Height = 22 Hint = 'Adds a new record' Caption = 'Add...' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnAddClick end object btnEdit: TButton Left = 557 Top = 70 Width = 66 Height = 22 Hint = 'Changes the highlited record' Caption = 'Edit...' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnEditClick end object btnMoveUp: TButton Left = 557 Top = 151 Width = 66 Height = 22 Hint = 'Moves the highlighted record up one row' Caption = 'Move Up' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btnMoveUpClick end object btnMoveDn: TButton Left = 557 Top = 179 Width = 66 Height = 22 Hint = 'Moves the highlighted record down one row' Caption = 'Move Dn' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = btnMoveDnClick end object btnDelete: TButton Left = 557 Top = 96 Width = 66 Height = 22 Hint = 'Deletes the highlighted record' Caption = 'Delete' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = btnDeleteClick end object TotalBar: TPanel Left = 11 Top = 210 Width = 520 Height = 17 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 7 object TotalBarCreditors: TPanel Left = 1 Top = 1 Width = 26 Height = 15 Align = alLeft BevelInner = bvLowered BevelOuter = bvNone Caption = '0' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object TotalBarDescription: TPanel Left = 27 Top = 1 Width = 182 Height = 15 Align = alLeft BevelOuter = bvNone Caption = 'Totals' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object TotalBarBalance: TPanel Left = 209 Top = 1 Width = 103 Height = 15 Align = alLeft Alignment = taRightJustify BevelInner = bvLowered BevelOuter = bvNone Caption = '$0.00 ' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object TotalBarPayment: TPanel Left = 312 Top = 1 Width = 103 Height = 15 Align = alLeft Alignment = taRightJustify BevelInner = bvLowered BevelOuter = bvNone Caption = '$0.00 ' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object btnSort: TButton Left = 557 Top = 18 Width = 66 Height = 22 Hint = 'Sorts records by Payoff Strategy' Caption = 'Sort' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = btnSortClick end object Panel1: TPanel Left = 32 Top = 244 Width = 229 Height = 98 BevelOuter = bvNone Color = clBlack TabOrder = 9 end object Panel2: TPanel Left = 28 Top = 241 Width = 230 Height = 98 BevelInner = bvRaised BorderStyle = bsSingle Color = 15269887 Ctl3D = False ParentCtl3D = False TabOrder = 10 object Label2: TLabel Left = 8 Top = 2 Width = 213 Height = 47 AutoSize = False Caption = 'Click this button to perform financial analysis and play "what-i' + 'f" on each debt listed above.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object IndividualBtn: TButton Left = 62 Top = 60 Width = 105 Height = 24 Caption = 'Debt Analysis' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = IndividualBtnClick end end object Panel3: TPanel Left = 379 Top = 244 Width = 229 Height = 98 BevelOuter = bvNone Color = clBlack TabOrder = 11 end object Panel4: TPanel Left = 375 Top = 241 Width = 230 Height = 98 BevelInner = bvRaised BorderStyle = bsSingle Color = 15269887 Ctl3D = False ParentCtl3D = False TabOrder = 12 object Label3: TLabel Left = 8 Top = 2 Width = 213 Height = 47 AutoSize = False Caption = 'Click this button to formulate a rapid debt repayment plan on th' + 'e entire group of debts listed above.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object MultipleBtn: TButton Left = 62 Top = 60 Width = 105 Height = 24 Caption = 'Debt Reduction' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = MultipleBtnClick end end end object StatusBar: TPanel Left = 0 Top = 415 Width = 632 Height = 19 Align = alBottom BevelInner = bvLowered Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 object Label4: TLabel Left = 403 Top = 2 Width = 56 Height = 14 Caption = 'Status Bar' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object StatusBarFileName: TPanel Left = 2 Top = 2 Width = 216 Height = 15 Align = alLeft Alignment = taRightJustify BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 4 Top = 0 Width = 22 Height = 14 Caption = ' File:' Transparent = True end end object StatusBarModified: TPanel Left = 218 Top = 2 Width = 106 Height = 15 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 end end object MainMenu: TMainMenu Left = 440 Top = 382 object menuFile: TMenuItem Caption = '&File' ShortCut = 32838 object menuNew: TMenuItem Caption = '&New' Hint = 'Clears the creditor information' OnClick = menuNewClick end object menuOpen: TMenuItem Caption = '&Open...' Hint = 'Opens a Zilch Windows File (zwf]' OnClick = menuOpenClick end object menuSeparator1: TMenuItem Caption = '-' end object menuSave: TMenuItem Caption = '&Save' Hint = 'Saves the current file' OnClick = menuSaveClick end object menuSaveAs: TMenuItem Caption = 'Save &As...' Hint = 'Saves the current file with a new name' OnClick = menuSaveAsClick end object menuSeparator2: TMenuItem Caption = '-' end object menuDelete: TMenuItem Caption = '&Delete' Hint = 'Lets you delete a Zilch Windows File (zwf)' OnClick = menuDeleteClick end object menuSeparator3: TMenuItem Caption = '-' end object menuExit: TMenuItem Caption = 'E&xit' Hint = 'Ends program' ShortCut = 32883 OnClick = menuExitClick end end object menuLoans: TMenuItem Caption = 'Loans' ShortCut = 32844 object menuLoanPayment: TMenuItem Caption = 'Calculate Loan Payment...' OnClick = menuLoanPaymentClick end object menuLoanPriceRange: TMenuItem Caption = 'Calculate Price Range...' OnClick = menuLoanPriceRangeClick end object menuCalculateRemainingBalance: TMenuItem Caption = 'Calculate Remaining Balance...' OnClick = menuCalculateRemainingBalanceClick end end object menuInvestments: TMenuItem Caption = 'Investments' ShortCut = 32841 object menuFVLumpSum: TMenuItem Caption = 'Future Value of Lump Sum...' OnClick = menuFVLumpSumClick end object menuFVRegularDeposits: TMenuItem Caption = 'Future Value of Regular Deposits...' OnClick = menuFVRegularDepositsClick end object menuLumpSumForFV: TMenuItem Caption = 'Lump Sum Required for Future Value...' OnClick = menuLumpSumForFVClick end object menuRegularDepositsForFV: TMenuItem Caption = 'Regular Deposits Required for Future Value...' OnClick = menuRegularDepositsForFVClick end end object Preferences2: TMenuItem Caption = 'Preferences' object BackgroundColor1: TMenuItem Caption = 'Choose Background' object MenuBgDenim: TMenuItem Caption = 'Denim' Checked = True OnClick = MenuBgDenimClick end object MenuBgMint: TMenuItem Caption = 'Mint' OnClick = MenuBgMintClick end object MenuBgSlate: TMenuItem Caption = 'Slate' OnClick = MenuBgSlateClick end object MenuBgCoffee: TMenuItem Caption = 'Coffee' OnClick = MenuBgCoffeeClick end object MenuBgDusk: TMenuItem Caption = 'Dusk' OnClick = MenuBgDuskClick end object MenuBgForest: TMenuItem Caption = 'Forest' OnClick = MenuBgForestClick end object MenuBgPlum: TMenuItem Caption = 'Plum' OnClick = MenuBgPlumClick end object MenuBgNone: TMenuItem Caption = 'None' OnClick = MenuBgNoneClick end end object Preferences1: TMenuItem Caption = 'Currency Symbol' object USDollarSign1: TMenuItem Caption = '$ US Dollar Sign' Checked = True OnClick = USDollarSign1Click end object ImperialPoundSign1: TMenuItem Caption = '� Imperial Pound Sign' OnClick = ImperialPoundSign1Click end end object N4: TMenuItem Caption = '-' end object ReportShading: TMenuItem Caption = 'Report Shading' object rsGreen: TMenuItem Caption = 'Light Green' Checked = True OnClick = rsGreenClick end object rsGray: TMenuItem Caption = 'Light Gray' OnClick = rsGrayClick end object rsNone: TMenuItem Caption = 'No Shading' OnClick = rsNoneClick end end object ReportTitlePosition: TMenuItem Caption = 'Report Title Position' object rpLeft: TMenuItem Caption = 'Left Justify' Checked = True OnClick = rpLeftClick end object rpCenter: TMenuItem Caption = 'Centered' OnClick = rpCenterClick end end object ReportBuilderMenu: TMenuItem Caption = 'Report Builder ...' Visible = False OnClick = ReportBuilderMenuClick end object ProVersion: TMenuItem Caption = 'Professional Version' Visible = False OnClick = ProVersionClick end end object menuHelp: TMenuItem Caption = 'Help' ShortCut = 32840 object Help1: TMenuItem Caption = 'Contents' OnClick = Help1Click end object FrequentlyAskedQuestions1: TMenuItem Caption = 'Frequently Asked Questions' OnClick = FrequentlyAskedQuestions1Click end object N1: TMenuItem Caption = '-' end object menuAbout: TMenuItem Caption = 'About...' OnClick = menuAboutClick end end object MenuOrder: TMenuItem Caption = 'Order' Hint = 'Fillout && print order form' object PrintOrderForm1: TMenuItem Caption = 'Print Order Form...' OnClick = PrintOrderForm1Click end object N2: TMenuItem Caption = '-' end object ToOrderByPhone1: TMenuItem Caption = ' To Order By Phone' end object MenuPhoneNumber: TMenuItem Caption = ' Call (301) 932-7027' end object MonSat8am5pmEST1: TMenuItem Caption = 'Mon-Sat 8am-5pm [EST]' end end end object menuOpenFileDlg: TOpenDialog Filter = ' Zilch Files [*.zwf]|*.zwf' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Open File' Left = 520 Top = 382 end object menuSaveFileDlg: TSaveDialog Filter = 'Zilch Files [*.zwf]|*.zwf' Options = [ofOverwritePrompt, ofHideReadOnly] Title = 'Save File As' Left = 480 Top = 382 end object menuDeleteFileDlg: TOpenDialog Filter = ' Zilch Files [*.ZWF]|*.zwf' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Delete File' Left = 554 Top = 382 end end